home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -in_the_mag- / reader_requests / notes / english / basskey.rexx < prev    next >
OS/2 REXX Batch file  |  2000-02-23  |  36KB  |  1,277 lines
  1. /* subprogramm to notes.pprx */
  2.  
  3. signal on halt
  4. signal on break_c
  5. signal on break_e
  6. signal on break_d
  7. call ppm_SetStyle(N)
  8.  
  9. noteneingabe:
  10.     /* smallest note distance */
  11.  
  12.     xgrdform = "(1,2,4,8 oder 16)"
  13.     xgrd = ppm_GetForm("Pleace choice the smallest note distance...(nothing=BREAK)", 3, xgrdform)
  14.     if xgrd == '' then exit_msg("user break !")
  15.     select
  16.      when xgrd == '1' then xg =0.7
  17.      when xgrd == '2' then xg =1.4
  18.      when xgrd == '4' then xg =2.8
  19.      when xgrd == '8' then xg =5.6
  20.      when xgrd == '16' then xg =11.2
  21.      otherwise notenwert()
  22.     end
  23.  
  24.    /* pointheighth of the notes */
  25.  
  26.    notepkt = 26
  27.    call ppm_SetJustification(0)
  28.  
  29.    zz = 0 /* line counter */
  30.    notex = 0
  31.    notey = 0
  32.    page = ppm_CurrentPage()
  33.  
  34. clickpos:
  35.    res = ppm_GetUserText(2, "manual or align to box? m/b")
  36.    if res == 'M' then res = 'm'
  37.    if res == 'B' then res = 'b'
  38.  select
  39.    when res == 'm' then
  40.      do
  41.        clickpos = ppm_GetClickPosition("Please click on the place, where I shall begin ...")
  42.        if clickpos == 0 then
  43.            do
  44.            exit_msg("ERROR !! EXIT !!")
  45.            end
  46.        else
  47.            do
  48.            notey = word(clickpos, 2)
  49.            notex = word(clickpos, 1)
  50.            if notex < 2.5 then notex = 2.5
  51.            xw = notex
  52.            yw = notey
  53.              if notey <= 5.3  then zz= 0   /* zz is linecounter */
  54.              if ((notey > 7.5)&(notey < 9.3)) then zz = 4
  55.              if ((notey > 11.5)&(notey < 13.3)) then zz = 8
  56.              if ((notey > 15.5)&(notey < 17.3)) then zz = 12
  57.              if ((notey > 19.5)&(notey < 21.3)) then zz = 16
  58.              if ((notey > 22.5)&(notey < 25.3)) then zz = 20
  59.              if notey > 25.3 then noteneingabe()
  60.            end
  61.      end
  62.    when res == 'b' then
  63.       do
  64.         clickbox = ppm_ClickOnBox("Please click on a box, where I shall work away ...")
  65.         pos = ppm_GetBoxPosition(clickbox)
  66.         notex = word(pos, 1)
  67.         notey = word(pos, 2)
  68.         xw = notex
  69.         yw = notey
  70.         call ppm_BoxAtPosn(notex, notey, page)
  71.         if notey <= 3.3  then zz= 0
  72.         if ((notey > 5.5)&(notey < 9.3))  then zz = 4
  73.         if ((notey > 9.5)&(notey < 13.3)) then zz = 8
  74.         if ((notey > 13.5)&(notey < 17.3)) then zz = 12
  75.         if ((notey > 17.5)&(notey < 21.3)) then zz = 16
  76.         if ((notey > 21.5)&(notey < 25.3)) then zz = 20
  77.         if notey > 25.3 then noteneingabe()
  78.  
  79.         if notex <= 1 then
  80.         do
  81.           noteneingabe()
  82.         end
  83.       end
  84.    otherwise clickpos()
  85.  end
  86.  
  87.    /* pointerbox */
  88.  
  89.    zbid = ppm_CreateBox(notex, zz+2.5, 0.3, 1, 0)
  90.    call ppm_SetSize(26)
  91.    zbn = ppm_GetBoxName(zbid)
  92.    call ppm_TextIntoBox(zbn, '5')
  93.  
  94. notenwert:
  95.  
  96.    do forever
  97.            cr = '0a'x
  98.            form = "worth name ['n'at.]"
  99.            call ppm_SetBoxPosition(zbid, notex, zz+2.5)
  100.            call ppm_UpdateScreen()
  101.            eingabe = ppm_GetForm("Please type in for the notes ...(nothing=break)", 9, form)
  102.            if eingabe == '' then
  103.            do
  104.             call ppm_DeleteBox(zbid)
  105.             exit_msg()
  106.            end
  107.            nw = word(eingabe, 1)
  108.            if nw == 'P' then nw = 'p'          /*pause*/
  109.            nn = word(eingabe, 2)
  110.            al = word(eingabe, 3)
  111.            if al == 'N' then al = 'n'          /*natural sign*/
  112.            IF nw == 'D' then nw = 'd'          /*delete*/
  113.            if nw == 'C' then nw = 'c'          /*space*/
  114.            if nw == 'L' then nw = 'l'          /*bar line*/
  115.            if nn == 'L' then nn = 'l'          /*bar line*/
  116.            if nw == "NEW" then nw = "new"      /*new pointer position*/
  117.  
  118.     /* x-distance of the notes */
  119. auswahl:
  120.      select
  121.       when nw == 's' then
  122.           do
  123.           xw = xg/16
  124.           nw='x'
  125.           yv = 0
  126.           end
  127.       when nw  == 'S' then
  128.           do
  129.           xw = xg/16
  130.           nw='X'
  131.           yv = 0.47
  132.           end
  133.       when nw == 'e' then
  134.           do
  135.           xw = xg/8
  136.           nw='e'
  137.           yv = 0
  138.           end
  139.       when nw == 'E' then
  140.           do
  141.           xw = xg/8
  142.           nw='E'
  143.           yv = 0.47
  144.           end
  145.       when nw == 'q' then
  146.           do
  147.           xw = xg/4
  148.           nw='q'
  149.           yv = 0
  150.           end
  151.       when nw == 'Q' then
  152.           do
  153.           xw = xg/4
  154.           nw='Q'
  155.           yv = 0.47
  156.           end
  157.       when nw == 'h' then
  158.           do
  159.           xw = xg/2
  160.           yv = 0
  161.           end
  162.       when nw == 'H' then
  163.           do
  164.           xw = xg/2
  165.           yv = 0.47
  166.           end
  167.       when nw == 'w' then
  168.           do
  169.           xw = xg
  170.           nw='w'
  171.           yv = 0
  172.           end
  173.       when nw == 'W' then
  174.           do
  175.           xw = xg
  176.           nw='W'
  177.           yv = 0.47
  178.           end
  179.  
  180.  
  181.  
  182.       when nw == 'pt' then
  183.           do
  184.             call ppm_SetSize(25)
  185.             box#id = ppm_CreateBox(notex-xw+0.4, yw+zz+0.26-yv, 0.3, 0.9, 0)
  186.             call ppm_SetSize(20)
  187.             call ppm_TextIntoBox(box#id, 'd')
  188.  
  189.            select
  190.                when nn == '1' then
  191.                do
  192.                xw = xg
  193.                notex = notex+xw
  194.                end
  195.                when nn == '2' then
  196.                do
  197.                xw = xg/2
  198.                notex = notex+xw
  199.                end
  200.                when nn == '4' then
  201.                do
  202.                xw = xg/4
  203.                notex = notex+xw
  204.                end
  205.                when nn == '8' then
  206.                do
  207.                xw = xg/8
  208.                notex = notex+xw
  209.                end
  210.                when nn == '16' then
  211.                do
  212.                xw  = xg/16
  213.                notex = notex+xw
  214.                end
  215.                when nn == 'l' then
  216.                do
  217.                xw  = 0.2
  218.                notex = notex+xw
  219.                end
  220.                otherwise notenwert()
  221.            end
  222.            if notex >=18.7 then
  223.                do
  224.                  notex = 2.5
  225.                  zz = zz + 4
  226.                end
  227.            px = notex - 4
  228.            py = zz-1
  229.            if px < 0 then px = 0
  230.            call ppm_SetPagePosition(px, py+1.5)
  231.            notenwert()
  232.  
  233.           end
  234.  
  235.       when nw == 'PT' then
  236.           do
  237.             call ppm_SetSize(25)
  238.             box#id = ppm_CreateBox(notex-xw+0.4, yw+zz+0.26-yv, 0.3, 0.9, 0)
  239.             call ppm_SetSize(20)
  240.             call ppm_TextIntoBox(box#id, 'd')
  241.            select
  242.                when nn == '1' then
  243.                do
  244.                xw = xg
  245.                notex = notex+xw
  246.                end
  247.                when nn == '2' then
  248.                do
  249.                xw = xg/2
  250.                notex = notex+xw
  251.                end
  252.                when nn == '4' then
  253.                do
  254.                xw = xg/4
  255.                notex = notex+xw
  256.                end
  257.                when nn == '8' then
  258.                do
  259.                xw = xg/8
  260.                notex = notex+xw
  261.                end
  262.                when nn == '16' then
  263.                do
  264.                xw  = xg/16
  265.                notex = notex+xw
  266.                end
  267.                when nn == 'l' then
  268.                do
  269.                xw  = 0.2
  270.                notex = notex+xw
  271.                end
  272.                otherwise notenwert()
  273.            end
  274.            if notex >=18.7 then
  275.                do
  276.                  notex = 2.5
  277.                  zz = zz + 4
  278.                end
  279.            px = notex - 4
  280.            py = zz-1
  281.            if px < 0 then px = 0
  282.            call ppm_SetPagePosition(px, py+1.5)
  283.            notenwert()
  284.           end
  285.  
  286.  
  287.      /* delete */
  288.       when nw == 'd' then
  289.           do
  290.            oldpos = notex
  291.            thisbox = ppm_BoxNum()
  292.            if thisbox == zbid then
  293.              do
  294.              ppm_Inform(1, "Nothing to delete!","OK")
  295.              notenwert()
  296.              end
  297.            lpos= ppm_GetBoxPosition()
  298.            notex = word(lpos, 1)
  299.            call ppm_DeleteBox()
  300.            diff = oldpos - notex
  301.            if (diff < 0.3)&(diff > 0.1) then notex = notex + 0.23
  302.            py = zz - 1
  303.            px = notex - 4
  304.            if px < 0 then px = 0
  305.            call ppm_SetPagePosition(px, py+1.5)
  306.            notenwert()
  307.           end
  308.  
  309.       /* barline */
  310.       when nw == 'l' then
  311.           do
  312.            call ppm_SetLineWeight(0.25)
  313.            call ppm_DrawLine(notex, 4+zz, notex, 4.8+zz)
  314.            notex = notex+0.2
  315.           end
  316.  
  317.  
  318.       when nw == 'p' then
  319.       do
  320. pausenwert:
  321.         x = notex
  322.         select
  323.             when nn == '1' then do
  324.  
  325.                 y = 4.29+zz
  326.                 call ppm_SetLineWeight(4)
  327.                 call ppm_DrawLine(x, y, x+0.4, y)
  328.                 call ppm_SetLineWeight(0.25)
  329.                 xw = xg
  330.                 notex = notex+xw
  331.             end
  332.  
  333.             when nn == '2' then do
  334.  
  335.                 y = 4.33+zz
  336.                 call ppm_SetLineWeight(4)
  337.                 call ppm_DrawLine(x, y, x+0.4, y)
  338.                 call ppm_SetLineWeight(0.25)
  339.                 xw = xg/2
  340.                 notex = notex+xw
  341.             end
  342.  
  343.             when nn == '4' then do
  344.  
  345.                 y = 4.07+zz
  346.                 Pbox = ppm_CreateBox(x, y, 0.59, 0.86, 0)
  347.                 boxnm = ppm_DocNextBox(Pbox)
  348.                 call ppm_DeleteContents(boxnm)
  349.                 call ppm_ImportGraphic(boxnm, 'Genies:note_pause/quarterpause', pause)
  350.                 xw = xg/4
  351.                 notex = notex+xw
  352.             end
  353.  
  354.             when nn == '8' then do
  355.  
  356.                 y = 4.21+zz
  357.                 Pbox = ppm_CreateBox(x, y, 0.27, 0.42, 0)
  358.                 boxnm = ppm_DocNextBox(Pbox)
  359.                 call ppm_DeleteContents(boxnm)
  360.                 call ppm_ImportGraphic(boxnm, 'Genies:note_pause/eighthpause', pause)
  361.                 xw = xg/8
  362.                 notex = notex+xw
  363.             end
  364.  
  365.             when nn == '16' then do
  366.  
  367.                 y = 4.21+zz
  368.                 Pbox = ppm_CreateBox(x, y, 0.27, 0.42, 0)
  369.                 boxnm = ppm_DocNextBox(Pbox)
  370.                 call ppm_DeleteContents(boxnm)
  371.                 call ppm_ImportGraphic(boxnm, 'Genies:note_pause/sixteenthpause', pause)
  372.                 xw = xg/16
  373.                 notex = notex+xw
  374.             end
  375.         otherwise notenwert()
  376.         end
  377.         if notex >=18.7 then
  378.             do
  379.               notex = 2.5
  380.               zz = zz + 4
  381.             end
  382.         px = notex - 4
  383.         py = zz-1
  384.         if px < 0 then px = 0
  385.         call ppm_SetPagePosition(px, py+1.5)
  386.         notenwert()
  387.       end
  388.  
  389.     /* space */
  390.  
  391.       when nw == 'c' then
  392.         do
  393.  
  394.            /* wert = ppm_GetForm("1/1 1/2 1/4 1/8 1/16 ...?", 2, "1 , 2, 4, 8, 16") */
  395.            select
  396.                when nn == '1' then
  397.                do
  398.                xw = xg
  399.                notex = notex+xw
  400.                end
  401.                when nn == '2' then
  402.                do
  403.                xw = xg/2
  404.                notex = notex+xw
  405.                end
  406.                when nn == '4' then
  407.                do
  408.                xw = xg/4
  409.                notex = notex+xw
  410.                end
  411.                when nn == '8' then
  412.                do
  413.                xw = xg/8
  414.                notex = notex+xw
  415.                end
  416.                when nn == '16' then
  417.                do
  418.                xw  = xg/16
  419.                notex = notex+xw
  420.                end
  421.                when nn == 't' then
  422.                do
  423.                xw  = 0.2
  424.                notex = notex+xw
  425.                end
  426.                otherwise notenwert()
  427.            end
  428.            if notex >=18.7 then
  429.                do
  430.                  notex = 2.5
  431.                  zz = zz + 4
  432.                end
  433.            px = notex - 4
  434.            py = zz-1
  435.            if px < 0 then px = 0
  436.            call ppm_SetPagePosition(px, py+1.5)
  437.            notenwert()
  438.         end
  439.  
  440.       when nw == 'new' then
  441.         do
  442.           call ppm_DeleteBox(zbid)
  443.           clickpos()
  444.         end
  445.       otherwise notenwert()
  446.       end
  447.  
  448.         /* y-place of the notes - noteneck to top */
  449.  
  450.        call ppm_SetLineWeight(0.25)
  451.  
  452.       select
  453.         when nn=='g#3'  then
  454.         do
  455.             yw = 2.745
  456.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
  457.             call ppm_SetSize(20)
  458.             call ppm_TextIntoBox(box#id, 's')
  459.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  460.             call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
  461.             call ppm_DrawLine(notex, zz+3.4, (notex+0.4), zz+3.4)
  462.         end
  463.  
  464.         when nn=='g3'  then
  465.         do
  466.             yw = 2.745
  467.             if al == 'n' then call auflhoch()
  468.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  469.             call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
  470.             call ppm_DrawLine(notex, zz+3.4, (notex+0.4), zz+3.4)
  471.         end
  472.  
  473.         when nn=='gb3' then
  474.         do
  475.             yw = 2.745
  476.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
  477.             call ppm_SetSize(20)
  478.             call ppm_TextIntoBox(box#id, 'f')
  479.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  480.             call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
  481.             call ppm_DrawLine(notex, zz+3.4, (notex+0.4), zz+3.4)
  482.         end
  483.  
  484.         when nn=='f#3'  then
  485.         do
  486.             yw = 2.845
  487.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
  488.             call ppm_SetSize(20)
  489.             call ppm_TextIntoBox(box#id, 's')
  490.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  491.             call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
  492.         end
  493.  
  494.         when nn=='f3'  then
  495.         do
  496.             yw = 2.845
  497.             if al == 'n' then call auflhoch()
  498.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  499.             call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
  500.         end
  501.  
  502.         when nn=='e#3'  then
  503.         do
  504.             yw = 2.945
  505.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
  506.             call ppm_SetSize(20)
  507.             call ppm_TextIntoBox(box#id, 's')
  508.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  509.             call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
  510.         end
  511.  
  512.         when nn=='e3'  then
  513.         do
  514.             yw = 2.945
  515.             if al == 'n' then call auflhoch()
  516.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  517.             call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
  518.         end
  519.  
  520.         when nn=='eb3' then
  521.         do
  522.             yw = 2.945
  523.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
  524.             call ppm_SetSize(20)
  525.             call ppm_TextIntoBox(box#id, 'f')
  526.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  527.             call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
  528.         end
  529.  
  530.         when nn=='d#3'  then
  531.         do
  532.             yw = 3.045
  533.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
  534.             call ppm_SetSize(20)
  535.             call ppm_TextIntoBox(box#id, 's')
  536.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  537.         end
  538.  
  539.         when nn=='d3' then
  540.         do
  541.             yw = 3.045
  542.             if al == 'n' then call auflhoch()
  543.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  544.         end
  545.  
  546.         when nn=='db3'    then
  547.         do
  548.             yw = 3.045
  549.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
  550.             call ppm_SetSize(20)
  551.             call ppm_TextIntoBox(box#id, 'f')
  552.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  553.         end
  554.  
  555.         when nn=='c#3'    then
  556.         do
  557.             yw = 3.145
  558.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
  559.             call ppm_SetSize(20)
  560.             call ppm_TextIntoBox(box#id, 's')
  561.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  562.         end
  563.  
  564.         when nn=='c3'     then
  565.         do
  566.             yw = 3.145
  567.             if al == 'n' then call auflhoch()
  568.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  569.         end
  570.  
  571.         when nn=='b2'     then
  572.         do
  573.             yw = 3.245
  574.             if al == 'n' then call auflhoch()
  575.         end
  576.         when nn=='bb2'     then
  577.         do
  578.             yw = 3.245
  579.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
  580.             call ppm_SetSize(20)
  581.             call ppm_TextIntoBox(box#id, 'f')
  582.         end
  583.  
  584.         when nn=='a#2'    then
  585.         do
  586.             yw = 3.345
  587.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
  588.             call ppm_SetSize(20)
  589.             call ppm_TextIntoBox(box#id, 's')
  590.         end
  591.  
  592.         when nn=='a2'     then
  593.         do
  594.             yw = 3.345
  595.             if al == 'n' then call auflhoch()
  596.         end
  597.         when nn=='ab2'    then
  598.         do
  599.             yw = 3.345
  600.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
  601.             call ppm_SetSize(20)
  602.             call ppm_TextIntoBox(box#id, 'f')
  603.         end
  604.  
  605.         when nn=='g#2'    then
  606.         do
  607.             yw = 3.445
  608.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
  609.             call ppm_SetSize(20)
  610.             call ppm_TextIntoBox(box#id, 's')
  611.         end
  612.  
  613.         when nn=='g2'     then
  614.         do
  615.             yw = 3.445
  616.             if al == 'n' then call auflhoch()
  617.         end
  618.         when nn=='gb2'    then
  619.         do
  620.             yw = 3.445
  621.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
  622.             call ppm_SetSize(20)
  623.             call ppm_TextIntoBox(box#id, 'f')
  624.         end
  625.  
  626.         when nn=='f#2'    then
  627.         do
  628.             yw = 3.545
  629.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
  630.             call ppm_SetSize(20)
  631.             call ppm_TextIntoBox(box#id, 's')
  632.         end
  633.  
  634.         when nn=='f2' then
  635.         do
  636.             yw = 3.545
  637.             if al == 'n' then call auflhoch()
  638.         end
  639.         when nn=='e#2'  then
  640.         do
  641.             yw = 3.645
  642.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
  643.             call ppm_SetSize(20)
  644.             call ppm_TextIntoBox(box#id, 's')
  645.         end
  646.         when nn=='e2'     then
  647.         do
  648.             yw = 3.645
  649.             if al == 'n' then call auflhoch()
  650.         end
  651.         when nn=='eb2'    then
  652.         do
  653.             yw = 3.645
  654.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
  655.             call ppm_SetSize(20)
  656.             call ppm_TextIntoBox(box#id, 'f')
  657.         end
  658.  
  659.         when nn=='d#2'    then
  660.         do
  661.             yw = 3.745
  662.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
  663.             call ppm_SetSize(20)
  664.             call ppm_TextIntoBox(box#id, 's')
  665.         end
  666.  
  667.         when nn=='d2'     then
  668.         do
  669.             yw = 3.745
  670.             if al == 'n' then call auflhoch()
  671.         end
  672.         when nn=='db2'    then
  673.         do
  674.             yw = 3.745
  675.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
  676.             call ppm_SetSize(20)
  677.             call ppm_TextIntoBox(box#id, 'f')
  678.         end
  679.  
  680.         when nn=='c#2'    then
  681.         do
  682.             yw = 3.845
  683.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
  684.             call ppm_SetSize(20)
  685.             call ppm_TextIntoBox(box#id, 's')
  686.         end
  687.  
  688.         when nn=='c2'     then
  689.         do
  690.             yw = 3.845
  691.             if al == 'n' then call auflhoch()
  692.         end
  693.         when nn=='b1'     then
  694.         do
  695.             yw = 3.945
  696.             if al == 'n' then call auflhoch()
  697.         end
  698.         when nn=='bb1'     then
  699.         do
  700.             yw = 3.945
  701.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
  702.             call ppm_SetSize(20)
  703.             call ppm_TextIntoBox(box#id, 'f')
  704.         end
  705.  
  706.         when nn=='a#1'    then
  707.         do
  708.             yw = 4.045
  709.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
  710.             call ppm_SetSize(20)
  711.             call ppm_TextIntoBox(box#id, 's')
  712.         end
  713.  
  714.         when nn=='a1'     then
  715.         do
  716.             yw = 4.045
  717.             if al == 'n' then call auflhoch()
  718.         end
  719.         when nn=='ab1'    then
  720.         do
  721.             yw = 4.045
  722.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
  723.             call ppm_SetSize(20)
  724.             call ppm_TextIntoBox(box#id, 'f')
  725.         end
  726.  
  727.         when nn=='g#1'    then
  728.         do
  729.             yw = 4.145
  730.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
  731.             call ppm_SetSize(20)
  732.             call ppm_TextIntoBox(box#id, 's')
  733.         end
  734.  
  735.         when nn=='g1'     then
  736.         do
  737.             yw = 4.145
  738.             if al == 'n' then call auflhoch()
  739.         end
  740.         when nn=='gb1'    then
  741.         do
  742.             yw = 4.145
  743.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
  744.             call ppm_SetSize(20)
  745.             call ppm_TextIntoBox(box#id, 'f')
  746.         end
  747.  
  748.         when nn=='f#1'    then
  749.         do
  750.             yw = 4.245
  751.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
  752.             call ppm_SetSize(20)
  753.             call ppm_TextIntoBox(box#id, 's')
  754.         end
  755.  
  756.         when nn=='f1'     then
  757.         do
  758.             yw = 4.245
  759.             if al == 'n' then call auflhoch()
  760.         end
  761.  
  762.         when nn=='e#1'  then
  763.         do
  764.             yw = 4.345
  765.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
  766.             call ppm_SetSize(20)
  767.             call ppm_TextIntoBox(box#id, 's')
  768.             call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
  769.         end
  770.         when nn=='e1' then
  771.         do
  772.             yw = 4.345
  773.             if al == 'n' then call auflhoch()
  774.             call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
  775.         end
  776.  
  777.         when nn=='eb1'  then
  778.         do
  779.             yw = 4.345
  780.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
  781.             call ppm_SetSize(20)
  782.             call ppm_TextIntoBox(box#id, 'f')
  783.             call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
  784.         end
  785.  
  786.         when nn=='d#1'  then
  787.         do
  788.             yw = 4.445
  789.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
  790.             call ppm_SetSize(20)
  791.             call ppm_TextIntoBox(box#id, 's')
  792.             call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
  793.         end
  794.  
  795.         when nn=='d1'  then
  796.         do
  797.             yw = 4.445
  798.             if al == 'n' then call auflhoch()
  799.             call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
  800.         end
  801.  
  802.         when nn=='db1' then
  803.         do
  804.             yw = 4.445
  805.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
  806.             call ppm_SetSize(20)
  807.             call ppm_TextIntoBox(box#id, 'f')
  808.             call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
  809.         end
  810.  
  811.         when nn=='c#1'  then
  812.         do
  813.             yw = 4.545
  814.             box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
  815.             call ppm_SetSize(20)
  816.             call ppm_TextIntoBox(box#id, 's')
  817.             call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
  818.             call ppm_DrawLine(notex, zz+5.2, (notex+0.4), zz+5.2)
  819.         end
  820.  
  821.         when nn=='c1'  then
  822.         do
  823.             yw = 4.545
  824.             if al == 'n' then call auflhoch()
  825.             call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
  826.             call ppm_DrawLine(notex, zz+5.2, (notex+0.4), zz+5.2)
  827.         end
  828.  
  829.     /* y-Raster der Noten - Notenhälse nach unten */
  830.  
  831.         when nn=='G#3'  then
  832.         do
  833.             yw = 3.22
  834.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
  835.             call ppm_SetSize(20)
  836.             call ppm_TextIntoBox(box#id, 's')
  837.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  838.             call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
  839.             call ppm_DrawLine(notex, zz+3.4, (notex+0.4), zz+3.4)
  840.         end
  841.  
  842.         when nn=='G3'  then
  843.         do
  844.             yw = 3.22
  845.             if al == 'n' then call aufltief()
  846.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  847.             call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
  848.             call ppm_DrawLine(notex, zz+3.4, (notex+0.4), zz+3.4)
  849.         end
  850.  
  851.         when nn=='GB3' then nn = 'Gb3'
  852.         when nn=='Gb3' then
  853.         do
  854.             yw = 3.22
  855.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
  856.             call ppm_SetSize(20)
  857.             call ppm_TextIntoBox(box#id, 'f')
  858.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  859.             call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
  860.             call ppm_DrawLine(notex, zz+3.4, (notex+0.4), zz+3.4)
  861.         end
  862.  
  863.         when nn=='F#3'  then
  864.         do
  865.             yw = 3.32
  866.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
  867.             call ppm_SetSize(20)
  868.             call ppm_TextIntoBox(box#id, 's')
  869.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  870.             call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
  871.         end
  872.  
  873.         when nn=='F3'  then
  874.         do
  875.             yw = 3.32
  876.             if al == 'n' then call aufltief()
  877.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  878.             call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
  879.         end
  880.  
  881.         when nn=='E#3'  then
  882.         do
  883.             yw = 3.42
  884.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
  885.             call ppm_SetSize(20)
  886.             call ppm_TextIntoBox(box#id, 's')
  887.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  888.             call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
  889.         end
  890.  
  891.         when nn=='E3'  then
  892.         do
  893.             yw = 3.42
  894.             if al == 'n' then call aufltief()
  895.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  896.             call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
  897.         end
  898.  
  899.         when nn=='EB3' then nn = 'Eb3'
  900.         when nn=='Eb3' then
  901.         do
  902.             yw = 3.42
  903.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
  904.             call ppm_SetSize(20)
  905.             call ppm_TextIntoBox(box#id, 'f')
  906.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  907.             call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
  908.         end
  909.  
  910.         when nn=='D#3'  then
  911.         do
  912.             yw = 3.52
  913.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
  914.             call ppm_SetSize(20)
  915.             call ppm_TextIntoBox(box#id, 's')
  916.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  917.         end
  918.  
  919.         when nn=='D3' then
  920.         do
  921.             yw = 3.52
  922.             if al == 'n' then call aufltief()
  923.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  924.         end
  925.  
  926.         when nn=='DB3' then nn = 'Db3'
  927.         when nn=='Db3' then
  928.         do
  929.             yw = 3.52
  930.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
  931.             call ppm_SetSize(20)
  932.             call ppm_TextIntoBox(box#id, 'f')
  933.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  934.         end
  935.  
  936.         when nn=='C#3'    then
  937.         do
  938.             yw = 3.62
  939.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
  940.             call ppm_SetSize(20)
  941.             call ppm_TextIntoBox(box#id, 's')
  942.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  943.         end
  944.  
  945.         when nn=='C3'     then
  946.         do
  947.             yw = 3.62
  948.             if al == 'n' then call aufltief()
  949.             call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
  950.         end
  951.  
  952.         when nn=='B2'     then
  953.         do
  954.             yw = 3.72
  955.             if al == 'n' then call aufltief()
  956.         end
  957.         when nn=='Bb2'     then
  958.         do
  959.             yw = 3.72
  960.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
  961.             call ppm_SetSize(20)
  962.             call ppm_TextIntoBox(box#id, 'f')
  963.         end
  964.  
  965.         when nn=='A#2'    then
  966.         do
  967.             yw = 3.82
  968.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
  969.             call ppm_SetSize(20)
  970.             call ppm_TextIntoBox(box#id, 's')
  971.         end
  972.  
  973.         when nn=='A2'     then
  974.         do
  975.             yw = 3.82
  976.             if al == 'n' then call aufltief()
  977.         end
  978.         when nn=='AB2'    then nn = 'Ab2'
  979.         when nn=='Ab2'    then
  980.         do
  981.             yw = 3.82
  982.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
  983.             call ppm_SetSize(20)
  984.             call ppm_TextIntoBox(box#id, 'f')
  985.         end
  986.  
  987.         when nn=='G#2'    then
  988.         do
  989.             yw = 3.92
  990.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
  991.             call ppm_SetSize(20)
  992.             call ppm_TextIntoBox(box#id, 's')
  993.         end
  994.  
  995.         when nn=='G2'     then
  996.         do
  997.             yw = 3.92
  998.             if al == 'n' then call aufltief()
  999.         end
  1000.         when nn=='GB2'    then nn = 'Gb2'
  1001.         when nn=='Gb2'    then
  1002.         do
  1003.             yw = 3.92
  1004.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
  1005.             call ppm_SetSize(20)
  1006.             call ppm_TextIntoBox(box#id, 'f')
  1007.         end
  1008.  
  1009.         when nn=='F#2'    then
  1010.         do
  1011.             yw = 4.02
  1012.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
  1013.             call ppm_SetSize(20)
  1014.             call ppm_TextIntoBox(box#id, 's')
  1015.         end
  1016.  
  1017.         when nn=='F2'     then
  1018.         do
  1019.             yw = 4.02
  1020.             if al == 'n' then call aufltief()
  1021.         end
  1022.         when nn=='E#2'    then
  1023.         do
  1024.             yw = 4.12
  1025.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
  1026.             call ppm_SetSize(20)
  1027.             call ppm_TextIntoBox(box#id, 's')
  1028.         end
  1029.  
  1030.         when nn=='E2'     then
  1031.         do
  1032.             yw = 4.12
  1033.             if al == 'n' then call aufltief()
  1034.         end
  1035.         when nn=='EB2'    then nn = 'Eb2'
  1036.         when nn=='Eb2'    then
  1037.         do
  1038.             yw = 4.12
  1039.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
  1040.             call ppm_SetSize(20)
  1041.             call ppm_TextIntoBox(box#id, 'f')
  1042.         end
  1043.  
  1044.         when nn=='D#2'    then
  1045.         do
  1046.             yw = 4.22
  1047.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
  1048.             call ppm_SetSize(20)
  1049.             call ppm_TextIntoBox(box#id, 's')
  1050.         end
  1051.  
  1052.         when nn=='D2'     then
  1053.         do
  1054.             yw = 4.22
  1055.             if al == 'n' then call aufltief()
  1056.         end
  1057.         when nn=='DB2'    then nn = 'Db2'
  1058.         when nn=='Db2'    then
  1059.         do
  1060.             yw = 4.22
  1061.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
  1062.             call ppm_SetSize(20)
  1063.             call ppm_TextIntoBox(box#id, 'f')
  1064.         end
  1065.  
  1066.         when nn=='C#2'    then
  1067.         do
  1068.             yw = 4.32
  1069.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
  1070.             call ppm_SetSize(20)
  1071.             call ppm_TextIntoBox(box#id, 's')
  1072.         end
  1073.  
  1074.         when nn=='C2'     then
  1075.         do
  1076.             yw = 4.32
  1077.             if al == 'n' then call aufltief()
  1078.         end
  1079.         when nn=='B1'     then yw = 4.42
  1080.         when nn=='Bb1'     then
  1081.         do
  1082.             yw = 4.42
  1083.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
  1084.             call ppm_SetSize(20)
  1085.             call ppm_TextIntoBox(box#id, 'f')
  1086.         end
  1087.  
  1088.         when nn=='A#1'    then
  1089.         do
  1090.             yw = 4.52
  1091.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
  1092.             call ppm_SetSize(20)
  1093.             call ppm_TextIntoBox(box#id, 's')
  1094.         end
  1095.  
  1096.         when nn=='A1'     then
  1097.         do
  1098.             yw = 4.52
  1099.             if al == 'n' then call aufltief()
  1100.         end
  1101.         when nn=='AB1'    then nn = 'Ab1'
  1102.         when nn=='Ab1'    then
  1103.         do
  1104.             yw = 4.52
  1105.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
  1106.             call ppm_SetSize(20)
  1107.             call ppm_TextIntoBox(box#id, 'f')
  1108.         end
  1109.  
  1110.         when nn=='G#1'    then
  1111.         do
  1112.             yw = 4.62
  1113.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
  1114.             call ppm_SetSize(20)
  1115.             call ppm_TextIntoBox(box#id, 's')
  1116.         end
  1117.  
  1118.         when nn=='G1'     then
  1119.         do
  1120.             yw = 4.62
  1121.             if al == 'n' then call aufltief()
  1122.         end
  1123.         when nn=='GB1'    then nn = 'Gb1'
  1124.         when nn=='Gb1'    then
  1125.         do
  1126.             yw = 4.62
  1127.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
  1128.             call ppm_SetSize(20)
  1129.             call ppm_TextIntoBox(box#id, 'f')
  1130.         end
  1131.  
  1132.         when nn=='F#1'    then
  1133.         do
  1134.             yw = 4.72
  1135.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
  1136.             call ppm_SetSize(20)
  1137.             call ppm_TextIntoBox(box#id, 's')
  1138.         end
  1139.  
  1140.         when nn=='F1'     then
  1141.         do
  1142.             yw = 4.72
  1143.             if al == 'n' then call aufltief()
  1144.         end
  1145.  
  1146.         when nn=='E#1'    then
  1147.         do
  1148.             yw = 4.82
  1149.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
  1150.             call ppm_SetSize(20)
  1151.             call ppm_TextIntoBox(box#id, 's')
  1152.             call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
  1153.         end
  1154.  
  1155.         when nn=='E1' then
  1156.         do
  1157.             yw = 4.82
  1158.             if al == 'n' then call aufltief()
  1159.             call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
  1160.         end
  1161.  
  1162.         when nn=='EB1'    then nn = 'Eb1'
  1163.         when nn=='Eb1'  then
  1164.         do
  1165.             yw = 4.82
  1166.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
  1167.             call ppm_SetSize(20)
  1168.             call ppm_TextIntoBox(box#id, 'f')
  1169.             call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
  1170.         end
  1171.  
  1172.         when nn=='D#1'  then
  1173.         do
  1174.             yw = 4.92
  1175.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
  1176.             call ppm_SetSize(20)
  1177.             call ppm_TextIntoBox(box#id, 's')
  1178.             call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
  1179.         end
  1180.  
  1181.         when nn=='D1'  then
  1182.         do
  1183.             yw = 4.92
  1184.             if al == 'n' then call aufltief()
  1185.             call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
  1186.         end
  1187.  
  1188.         when nn=='DB1'    then nn = 'Db1'
  1189.         when nn=='Db1' then
  1190.         do
  1191.             yw = 4.92
  1192.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
  1193.             call ppm_SetSize(20)
  1194.             call ppm_TextIntoBox(box#id, 'f')
  1195.             call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
  1196.         end
  1197.  
  1198.         when nn=='C#1'  then
  1199.         do
  1200.           yw = 5.02
  1201.             box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
  1202.             call ppm_SetSize(20)
  1203.             call ppm_TextIntoBox(box#id, 's')
  1204.           call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
  1205.           call ppm_DrawLine(notex, zz+5.2, (notex+0.4), zz+5.2)
  1206.         end
  1207.  
  1208.         when nn=='C1'  then
  1209.         do
  1210.           yw = 5.02
  1211.             if al == 'n' then call aufltief()
  1212.           call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
  1213.           call ppm_DrawLine(notex, zz+5.2, (notex+0.4), zz+5.2)
  1214.         end
  1215.         otherwise notenwert()
  1216.       end
  1217.  
  1218.         /* measures of a notebox */
  1219.  
  1220.         notewidht = 0.64
  1221.         noteheight = 0.97
  1222.  
  1223.  
  1224.         boxid = ppm_CreateBox(notex, yw+zz, notewidht, noteheight, 0)
  1225.         call ppm_SetSize(notepkt)
  1226.         call ppm_TextIntoBox(boxid, nw)
  1227.         notex = (notex + xw)
  1228.         if notex >=18.7 then
  1229.             do
  1230.               notex = 2.5
  1231.               zz = zz + 4
  1232.             end
  1233.         px = notex - 4
  1234.         py = zz-1
  1235.         if px < 0 then px = 0
  1236.         call ppm_SetPagePosition(px, py+1.5)
  1237.       end
  1238.    end
  1239.  end
  1240. exit
  1241.  
  1242. auflhoch:
  1243. do
  1244.   Pbox = ppm_CreateBox(notex-0.34, yw+zz+0.07, 0.6, 1.2, 0)
  1245.   boxnm = ppm_DocNextBox(Pbox)
  1246.   call ppm_DeleteContents(boxnm)
  1247.   call ppm_ImportGraphic(boxnm, 'Genies:note_pause/naturalsng', Zeichen)
  1248.   return
  1249. end
  1250.  
  1251. aufltief:
  1252. do
  1253.   Pbox = ppm_CreateBox(notex-0.34, yw+zz-0.4, 0.6, 1.2, 0)
  1254.   boxnm = ppm_DocNextBox(Pbox)
  1255.   call ppm_DeleteContents(boxnm)
  1256.   call ppm_ImportGraphic(boxnm, 'Genies:note_pause/naturalsng', Zeichen)
  1257.   return
  1258. end
  1259.  
  1260. break_d:
  1261. break_e:
  1262. break_c:
  1263. halt:
  1264.     call exit_msg("User aborted Genie!")
  1265.  
  1266. exit_msg: procedure
  1267. do
  1268.     parse arg message
  1269.  
  1270.     if message ~= '' then
  1271.     call ppm_Inform(1,message,)
  1272.  
  1273.     call ppm_ClearStatus()
  1274.     call ppm_AutoUpdate(1)
  1275.     exit
  1276. end
  1277.